﻿Module CITRA_MOTOR
#Region "Variables"
    Friend HayConexion As Boolean
    Friend ListaMensajes As New List(Of String)()
    Friend ListaAvisos As New List(Of String)()
    Friend ListaMenuAviso As New List(Of String)()
    Friend Esta_en_MENU As Boolean


#End Region
#Region "Eventos"
    'Public Event AvisodelSistema(ByVal aviso As String)
#End Region


#Region "MOTOR_CITRA"
    Friend Sub Citra_ConexionTerminada()
        HayConexion = False
        ListaAvisos.Add("DESCONECTADO")
        ListaMenuAviso.Add(RequierenAntencionTipos.Ninguno)
    End Sub
    Friend Sub Citra_DatosRecibidos(ByVal datos As String)
        If Mid(datos, 1, 1) = "#" Then
            'RaiseEvent CatalogoDepartamentos()
        Else
            ListaMensajes.Add(datos)
        End If
    End Sub
    Friend Sub Citra_MensajeSistema(ByVal datos As String, ByVal Tipo As RequierenAntencionTipos)
        ListaAvisos.Add(datos)
        ListaMenuAviso.Add(Tipo)
    End Sub
#End Region
#Region "ACCIONES IMPORTANTES"
    Public Sub RequierenAtencion(ByVal Descripcion As String, ByVal Tipo As RequierenAntencionTipos)
        REQUIEREN.Descripcion = Descripcion
        REQUIEREN.IdUsuario = 0
        REQUIEREN.Menu = Tipo
        REQUIEREN.Guardar()
    End Sub
    Enum RequierenAntencionTipos As Integer
        DepartamentosProduccion = 0
        Ninguno = 1
        VariosElementos = 2
        OcurrioError = 3
        MuestraStatus = 4
    End Enum
#End Region

   

End Module
